home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00293_Script_BOUCLE_EXPORT_ZAPETTE < prev    next >
Text File  |  2004-12-05  |  610b  |  26 lines
  1. global gL_Zap
  2. property p_duree,p_FlagTempo,pTime0
  3. -----------------
  4. on getPropertyDescriptionList me
  5.   return [#p_duree:[#comment: "durΘe de la tempo:",#format:  #integer, #default: 1 ]]
  6. end getPropertyDescriptionList
  7. ---------------------
  8. on exitFrame me
  9.   case(p_FlagTempo = VOID) of
  10.     1:
  11.       p_FlagTempo = 1
  12.       pTime0 = the ticks
  13.       go the frame
  14.     0:
  15.       case(the ticks - pTime0< 60*p_duree) of
  16.         1:
  17.           go the frame
  18.         0:
  19.           p_FlagTempo = VOID
  20.           go "ATTENTE"
  21.       end case  
  22.   end case
  23.   PATCH4_Os9(gL_Zap[1])
  24. end
  25. -------------------
  26.